home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 316 / libsrc / ffsl.c < prev    next >
Encoding:
Text File  |  1988-10-20  |  375 b   |  23 lines
  1. /*
  2.  *        Cross Development System for Atari ST 
  3.  *     Copyright (c) 1988, Memorial University of Newfoundland
  4.  *
  5.  * $Header: ffsl.c,v 1.1 88/01/29 17:33:15 m68k Exp $
  6.  *
  7.  * $Log:    ffsl.c,v $
  8.  * Revision 1.1  88/01/29  17:33:15  m68k
  9.  * Initial revision
  10.  * 
  11.  */
  12. int
  13. ffsl(n)
  14.     long    n;
  15. {
  16.     int    i = 0;
  17.  
  18.     if (n)
  19.         for (; !(n & 1) ; i++)
  20.             n >>= 1;
  21.     return i;
  22. }
  23.